home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / window3a / palette3.bas next >
Encoding:
BASIC Source File  |  1999-09-23  |  1.4 KB  |  42 lines
  1. Attribute VB_Name = "Module1"
  2. Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
  3.  
  4. Declare Function SetSysColors Lib "user32" (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long
  5.  
  6. Public Const COLOR_3DDKSHADOW = 21
  7. Public Const COLOR_BTNHIGHLIGHT = 20
  8. Public Const COLOR_BTNFACE = 15
  9. Public Const COLOR_BTNSHADOW = 16
  10. Public Const COLOR_3DFACE = COLOR_BTNFACE
  11. Public Const COLOR_3DHIGHLIGHT = COLOR_BTNHIGHLIGHT
  12. Public Const COLOR_3DHILIGHT = COLOR_BTNHIGHLIGHT
  13. Public Const COLOR_3DLIGHT = 22
  14. Public Const COLOR_3DSHADOW = COLOR_BTNSHADOW
  15. Public Const COLOR_ACTIVEBORDER = 10
  16. Public Const COLOR_ACTIVECAPTION = 2
  17. Public Const COLOR_APPWORKSPACE = 12
  18. Public Const COLOR_BACKGROUND = 1
  19.  
  20.  
  21. Public Const COLOR_BTNHILIGHT = COLOR_BTNHIGHLIGHT
  22.  
  23. Public Const COLOR_BTNTEXT = 18
  24. Public Const COLOR_CAPTIONTEXT = 9
  25. Public Const COLOR_DESKTOP = COLOR_BACKGROUND
  26. Public Const COLOR_GRAYTEXT = 17
  27. Public Const COLOR_HIGHLIGHT = 13
  28. Public Const COLOR_HIGHLIGHTTEXT = 14
  29. Public Const COLOR_INACTIVEBORDER = 11
  30. Public Const COLOR_INACTIVECAPTION = 3
  31. Public Const COLOR_INACTIVECAPTIONTEXT = 19
  32. Public Const COLOR_INFOBK = 24
  33. Public Const COLOR_INFOTEXT = 23
  34. Public Const COLOR_MENU = 4
  35. Public Const COLOR_MENUTEXT = 7
  36. Public Const COLOR_SCROLLBAR = 0
  37. Public Const COLOR_WINDOW = 5
  38. Public Const COLOR_WINDOWFRAME = 6
  39. Public Const COLOR_WINDOWTEXT = 8
  40. Public Const COLORONCOLOR = 3
  41.  
  42.